perm filename BIGNUM.LSP[LSP,LSP] blob sn#010443 filedate 1973-07-03 generic text, type T, neo UTF8
(DEFPROP BIGINIT
 (LAMBDA NIL
  (PROG NIL
	(PUTSYM	(VBASE (GET (QUOTE BASE) (QUOTE VALUE)))
		NEGNUM
		POSNUM
		FIXNUM
		FLONUM
		(MINUSP (GET (QUOTE MINUSP) (QUOTE SUBR)))
		(VNOPOI (GET (QUOTE *NOPOINT) (QUOTE VALUE))))))
 EXPR)

(DEFPROP APNINIT
	 (LAMBDA NIL
		 (PROG NIL
		       (GETSYM SUBR BIGINI)
		       (BIGINI)
		       (REMPROP (QUOTE APNINIT) (QUOTE EXPR))
		       (REMPROP (QUOTE BIGINIT) (QUOTE EXPR))
		       (REMPROP (QUOTE BIGINI) (QUOTE SUBR))))
	 EXPR)

(BIGINIT)